home *** CD-ROM | disk | FTP | other *** search
/ A Teacher's Guide to the Holocaust / A Teacher's Guide to the Holocaust.iso / data / people / scripts / cmi.js < prev    next >
Text File  |  1999-12-05  |  6KB  |  222 lines
  1. // Copyright 1998 Macromedia, Inc. All rights reserved.
  2.  
  3. var MM_SID="", MM_TURL="", MM_CMIDOC="", aicd = "aicc_data", co = "[core]", ls="Lesson_Status", cmnd="command", cmdArray;
  4. var IE3 = ((navigator.appName.indexOf("Microsoft") != -1) && (parseFloat(navigator.appVersion) < 3));
  5. if (window.cmdQueue == null)
  6.   window.cmdQueue = new CmdQueue()
  7.  
  8. function CmdQueue() {
  9.   this.cmd = new Array();
  10.   this.cmdData = new Array();
  11.   this.sIDs = new Array();
  12.   this.qLen = 0;  
  13.   this.latency = (navigator.appName.indexOf('Microsoft') != -1)?1250:1000;
  14.   this.addCmd = cmdQAddCmd;
  15.   this.delCmd = cmdQDelCmd;  
  16. }
  17.  
  18. function cmdQAddCmd(command, sid, cmddata) {
  19.   this.cmd[this.qLen] = command;
  20.   this.sIDs[this.qLen] = sid;
  21.   this.cmdData[this.qLen] = cmddata;
  22.   this.qLen++;
  23.   if (this.qLen == 1) { 
  24.     if (!IE3 && (window.CmdSubmit == null))
  25.       window.CmdSubmit = CmdSubmit; 
  26.     setTimeout("CmdSubmit()", this.latency); 
  27.   }
  28. }
  29.  
  30. function cmdQDelCmd() {
  31.   var i, len;
  32.   if (this.qLen == 0) return;
  33.   else if (this.qLen == 1)
  34.     this.cmd.length = this.sIDs.length = this.cmdData.length = 0;
  35.   else {
  36.     for (i=1, len=this.qLen; i<len; i++) {
  37.       this.cmd[i-1] = this.cmd[i];
  38.       this.sIDs[i-1] = this.sIDs[i];
  39.       this.cmdData[i-1] = this.cmdData[i];
  40.     }
  41.     this.cmd.length = this.sIDs.length = this.cmdData.length = this.qLen - 1;
  42.   }
  43.   this.qLen--;
  44. }
  45.  
  46. function CmdSubmit() {
  47.     document.command.elements[cmnd].value = cmdQueue.cmd[0];
  48.     document.command.elements[aicd].value = cmdQueue.cmdData[0];
  49.     document.command.elements["session_id"].value = cmdQueue.sIDs[0];
  50.     document.command.submit();
  51.     cmdQueue.delCmd();
  52.     if (cmdQueue.qLen >= 1) {
  53.       if (!IE3) window.CmdSubmit = CmdSubmit;
  54.       setTimeout("CmdSubmit()", cmdQueue.latency);
  55.     }
  56. }
  57.  
  58. function MM_SGet() {document.command.elements["command"].value = "getparam";}
  59. function MM_SPut() {document.command.elements["command"].value = "putparam";}
  60. function MM_SPInt() {document.command.elements["command"].value = "putinteractions";}
  61.  
  62. function MM_SVal(idx, val0, sub) {
  63.   document.command.elements[idx].value=val0;
  64.   if (sub) MM_Sub();
  65. }
  66. function MM_ApndVal(val0) {document.command.elements[aicd].value += '\r\n'+val0;}
  67.  
  68. function MM_Sub() {
  69.   if (MM_SID.length > 0) {
  70.     var frm = document.command;
  71.     cmdQueue.addCmd(frm.elements[cmnd].value,MM_SID,frm.elements[aicd].value);
  72.   }
  73. }
  74.  
  75. function MM_CMISetParms(url) {
  76.   var prms="", tmpp;  
  77.   pos=url.indexOf("#")
  78.   if (pos==-1) pos=url.indexOf("?")
  79.   if (pos>-1) prms=url.substring(pos+1,url.length)
  80.   tmpp=prms.toUpperCase()
  81.   if (tmpp.indexOf("AICC-SID")>-1) {
  82.     alert("Lesson Server version incompatible.  Your administrator must upgrade to the latest version.");
  83.     return false;
  84.   }
  85.   if ((pos=tmpp.indexOf("AICC_SID="))>-1) {
  86.     MM_SID=prms.substring(pos+8,prms.length)
  87.     if (MM_SID.indexOf("&")>0)
  88.       MM_SID=unescape(MM_SID.substring(1,MM_SID.indexOf("&")))
  89.   }
  90.   if ((pos=tmpp.indexOf("AICC_URL"))>-1) {
  91.     MM_TURL=prms.substring(pos+9,prms.length)
  92.     if (MM_TURL.indexOf("&")>0)
  93.       MM_TURL=MM_TURL.substring(1,MM_TURL.indexOf("&"))
  94.     MM_TURL=unescape(MM_TURL)
  95.   }
  96.   return (MM_TURL=="" || MM_SID=="")?false:true;  
  97. }
  98.  
  99. function findcmidocument(win) { 
  100.   if (MM_CMISetParms(win.document.location+"") == false) {
  101.     if (win == window.top) return null
  102.     return findcmidocument(win.parent)
  103.   } else {
  104.     MM_CMIDOC = win.document;
  105.     return win.document;
  106.   }
  107. } 
  108.  
  109. function cmiinit(win) {
  110.   frm=findcmiframe(null);
  111.   if (frm!=null)
  112.    frm.installcmi(win);
  113.   findcmidocument(win);
  114.   window.CMITURL = MM_TURL;
  115.   return CMIIsPresent();
  116. }
  117.  
  118. function CMIInitialize() {
  119.   if ((MM_CMIDOC!=null) && (MM_CMIDOC.length!=0)){  
  120.     MM_SVal("session_id",MM_SID);
  121.     retVal = true;
  122.   } else retVal = false;
  123.   return retVal;
  124. }
  125.  
  126. function CMIIsPresent() {
  127.   return MM_SID.length != 0;
  128. }
  129.  
  130. function CMIAddInteraction(date, time, intid, objid, intrtype, correct, student, result, weight, latency) {
  131.   MM_SVal("command","putinteractions")
  132.   MM_SVal(aicd,'"date", "time", "interaction_id", "objective_id", "type_interaction", "correct_response", "student_response", "result", "weighting", "latency"\r\n' +
  133.     '"' + date + '", ' +
  134.     '"' + time + '", ' +
  135.     '"' + intid + '", ' +
  136.     '"' + objid + '", ' +
  137.     '"' + intrtype + '", ' +
  138.     '"' + correct + '", ' +
  139.     '"' + student + '", ' +
  140.     '"' + result + '", ' +
  141.     '"' + weight + '", ' +
  142.     '"' + latency+ '"',1);
  143. }
  144.  
  145. function CMISetCompleted() { CMISetStatus("C"); }
  146.  
  147. function CMISetData(data) {
  148.   MM_SPut()
  149.   MM_SVal(aicd,"[Core_Lesson]\r\n"+data,1)
  150. }
  151.  
  152. function CMISetFailed() { CMISetStatus("F"); }
  153.  
  154. function CMISetLocation(loc) {
  155.   MM_SPut()
  156.   MM_SVal(aicd,co+"\r\nLesson_Location="+loc,1)
  157. }
  158.  
  159. function CMISetObj(index, id, score, status, started, completed, passed, failed) {
  160.   MM_SPut()
  161.   MM_SVal(aicd,"[Objectives_Status]\r\nJ_ID."+index+"="+id)
  162.   // if objective info isn't there already need to write a not-started flag
  163.   if (status=="")
  164.     MM_ApndVal("J_STATUS."+index+"="+started?'I':completed?'C':passed?'P':'F');
  165.   else 
  166.     MM_ApndVal("J_STATUS."+index+"="+status); 
  167.   MM_ApndVal("J_SCORE."+index+"="+score);
  168.   MM_Sub();
  169. }
  170.  
  171. function CMISetPassed() { CMISetStatus("P"); }
  172.  
  173. function CMISetScore(score) { 
  174.   MM_SPut()
  175.   MM_SVal(aicd,co+"\r\nscore="+score,1)
  176. }
  177.  
  178. function CMISetStarted() { CMISetStatus("I"); }
  179.  
  180. function CMISetStatus(stat) {
  181.   MM_SPut()
  182.   MM_SVal(aicd,co+"\r\n"+ls+"="+stat,1)
  183. }
  184.  
  185. function CMISetTime(t) {
  186.   var x=3600;
  187.   var y=60;
  188.   var h=Math.round(t/x - t%x/x)+'';
  189.   var m=Math.round((t-h*x)/y-(t-h*x)%y/y)+'';
  190.   var s=Math.round(t-h*x-m*y)+'';
  191.   if (h.toString().length == 1) h='0'+h;
  192.   if (m.toString().length == 1) m='0'+m;
  193.   if (s.toString().length == 1) s='0'+s;
  194.   MM_SPut()
  195.   MM_SVal(aicd,co+"\r\nTime="+h+":"+m+":"+s,1)
  196. }
  197.  
  198. function CMISetTimedOut() {
  199.   MM_SPut()
  200.   MM_SVal(aicd,co+"\r\n"+ls+"=incomplete,time-out",1)
  201. }
  202.  
  203. function installcmi(win) {
  204.   if ((win.CMIInitialize == null) && !IE3) {
  205.     win.CMIInitialize = CMIInitialize;
  206.     win.CMIIsPresent = CMIIsPresent;
  207.     win.CMIAddInteraction =CMIAddInteraction
  208.     win.CMISetCompleted =CMISetCompleted
  209.     win.CMISetData =CMISetData
  210.     win.CMISetFailed =CMISetFailed
  211.     win.CMISetLocation =CMISetLocation
  212.     win.CMISetObj =CMISetObj
  213.     win.CMISetPassed =CMISetPassed
  214.     win.CMISetScore =CMISetScore
  215.     win.CMISetStarted =CMISetStarted
  216.     win.CMISetStatus =CMISetStatus
  217.     win.CMISetTime =CMISetTime
  218.     win.CMISetTimedOut =CMISetTimedOut
  219.     win.CMITURL = MM_TURL
  220.   }
  221. }
  222.